home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 37 / Tiger_Disk_037_19xx_Tiger-Crew-Disk_de_Side_A.d64 / sound 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  228b  |  18 lines
  1. 5 rem sound 2
  2. 10 fori=54272to54295:pokei,0:next
  3. 20 poke54296,15
  4. 30 poke54277,8
  5. 35 poke54278,255
  6. 40 poke54276,21
  7. 45 fork=1to15
  8. 50 a=20:fory=1to2
  9. 60 b=90:poke54273,a
  10. 70 fori=1to6
  11. 75 poke54287,b
  12. 80 b=b*.3
  13. 90 a=a*1.1
  14. 100 nexti
  15. 110 nexty
  16. 120 nextk
  17. 130 poke54278,15
  18.